home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / pc / explorer / degree.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1997-07-22  |  304 b   |  18 lines
  1. on mouseUp
  2.   if (field "Degrees" <= 720) and (field "Degrees" >= -720) then
  3.     go("Sc5a")
  4.   else
  5.     if field "Degrees" < -720 then
  6.       put "-720" into field "Degrees"
  7.       go("Sc5a")
  8.     else
  9.       put "720" into field "Degrees"
  10.       go("Sc5a")
  11.     end if
  12.   end if
  13. end
  14.  
  15. on mouseDown
  16.   button()
  17. end
  18.